home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Scope / Scope Disk #058 (199x)(Scope PD)(US)[WB].zip / Scope Disk #058 (199x)(Scope PD)(US)[WB].adf / B1Subs / BReq < prev    next >
Text File  |  1989-01-24  |  2KB  |  118 lines
  1.  
  2.   CLEAR ,25000   
  3.  
  4.   LIBRARY "intuition.library"
  5.  
  6.   ON BREAK GOSUB Ender
  7.   BREAK ON
  8.   
  9.   bRW=2'     <- Requester Window Number
  10.   ReqFar=50' <- How far it slides up
  11.  
  12. '         ===shrink Basic Output window===
  13.   WINDOW 1,"",(0,20)-(330,60),18,-1 
  14.   COLOR 2,1:CLS
  15.   PRINT :PRINT ,"The main program window
  16.   
  17. '       ===Set Up SlideUp Screen===
  18.   SCREEN 2,640,ReqFar+16,2,2  
  19.   WINDOW bRW,,(0,0)-(631,ReqFar),16,2
  20.   PALETTE 0,1,1,1
  21.   COLOR 2,0
  22.   bRWs&=PEEKL(WINDOW(7)+46)
  23.   CALL MoveScreen(bRWs&,0,220)
  24.   PRINT: PRINT: PRINT ,"A demo."
  25.   WINDOW 2
  26.  
  27. WHILE 1 
  28.  GOSUB ReqUp 
  29.  LOCATE 2:PRINT " Press a key or click.  
  30.  LINE(4,2)-(626,30),3,b  
  31.  GOSUB WayCheer
  32.  GOSUB ReqDown
  33.  LOCATE 3,3: PRINT SPACE$(20): LOCATE 3,3
  34.  IF Y>0 THEN PRINT X;Y
  35.  IF Key$>"" THEN PRINT Key$
  36.  GOSUB WayCheer
  37. WEND
  38.  
  39.  '======Wait for Key or Mouse=========
  40. WayCheer:
  41.   XY=MOUSE(0): Key$="":X=0:Y=0
  42.   WHILE MOUSE(0)=0 AND Key$=""
  43.     Key$=INKEY$
  44.     IF MOUSE(0)<>0 THEN X=MOUSE(1):Y=MOUSE(2)
  45.   WEND
  46.   WHILE MOUSE(0)<>0 OR INKEY$>"": WEND
  47.  RETURN
  48.  
  49.   
  50.  '======SLIDE UP=========
  51. ReqUp:
  52.   WINDOW bRW,,(0,0)-(631,32),0,2  
  53.   COLOR 2,1:CLS   
  54.   FOR I=0 TO ReqFar      
  55.     CALL MoveScreen(bRWs&,0,-1)
  56.   NEXT
  57.  RETURN 
  58.     
  59.  '======SLIDE DOWN=========
  60. ReqDown:  
  61.   FOR I=0 TO ReqFar      
  62.     CALL MoveScreen(bRWs&,0,1)
  63.   NEXT
  64.   WINDOW CLOSE bRW   
  65.  RETURN  
  66.   '======SCROLL END=======
  67.  
  68.  
  69. Ender:
  70.   TIMER OFF: MOUSE OFF
  71.   ON ERROR GOTO EnderOOPS 
  72.   FOR I=4 TO 2 STEP-1: WINDOW CLOSE I: NEXT  
  73.   WINDOW 1,"                                          ",(0,20)-(330,60),18,-1  
  74.   FOR I=4 TO 2 STEP-1: SCREEN CLOSE I: NEXT  
  75.  
  76.   LIBRARY CLOSE
  77.   MENU RESET
  78.   CLEAR,25000
  79.   
  80.   COLOR 2,1: CLS: PRINT: PRINT " Thanx, y'all" 
  81.   PRINT "      Click below or press 1,2,3 keys
  82.   PRINT: COLOR 1,3
  83.   PRINT "      1             2             3        "
  84.   PRINT "    LEAVE       Run Again     Stop+LIST   ";
  85.  
  86.   ON ERROR GOTO 0
  87.  
  88.   FOR I=1 TO 331 STEP 110: LINE(I,23)-STEP(109,17),2,b: NEXT
  89.  
  90.   WHILE INKEY$>"" OR MOUSE(0)<>0:WEND
  91.   TIMER OFF
  92.   ON TIMER(1) GOSUB EndChex
  93.   TIMER ON
  94.   WHILE 1: SLEEP: WEND
  95.  
  96. EndChex:  
  97.   a$=INKEY$: XY=MOUSE(0): X=MOUSE(1): Y=MOUSE(2)
  98.   IF a$>"" OR (XY<>0 AND Y>24 AND Y<40) THEN   
  99.     IF a$="1" OR a$="2" OR a$="3" THEN X=VAL(a$) 
  100.     X=(X+1)/110 
  101.     IF X=1 THEN SYSTEM
  102.     IF X>1 AND X<=2 THEN TIMER OFF: RUN
  103.     IF X>2 AND X<=3 THEN
  104.       FOR I=1 TO 9:PRINT :NEXT:PRINT  "Okee dokee"
  105.       LOCATE 3,1:PRINT" ":LIST :END 
  106.     END IF  
  107.   END IF
  108.  RETURN
  109.  
  110. EnderOOPS:
  111.   RESUME NEXT
  112.  
  113. EnderEnded:
  114.  
  115.  
  116.  
  117.   
  118.